VERSION 5.00
Begin VB.Form frmQuickJoin 
   BackColor       =   &H00000000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "VectorNet Bot - Quick Join Channels"
   ClientHeight    =   3795
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4875
   Icon            =   "frmQuickJoin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3795
   ScaleWidth      =   4875
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CheckBox chkShowChannels 
      BackColor       =   &H00000000&
      Caption         =   "Show the Current channels in the Chat window when done?"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   17
      Top             =   3000
      Width           =   4695
   End
   Begin VB.CommandButton Cancel 
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   3600
      TabIndex        =   16
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton Done 
      Caption         =   "&Done"
      Height          =   375
      Left            =   2160
      TabIndex        =   15
      Top             =   3360
      Width           =   1335
   End
   Begin VB.TextBox txtChannel7 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   14
      Text            =   "Channel #7"
      Top             =   2640
      Width           =   4215
   End
   Begin VB.TextBox txtChannel6 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   13
      Text            =   "Channel #6"
      Top             =   2280
      Width           =   4215
   End
   Begin VB.TextBox txtChannel5 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   12
      Text            =   "Channel #5"
      Top             =   1920
      Width           =   4215
   End
   Begin VB.TextBox txtChannel4 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   11
      Text            =   "Channel #4"
      Top             =   1560
      Width           =   4215
   End
   Begin VB.TextBox txtChannel3 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   10
      Text            =   "Channel #3"
      Top             =   1200
      Width           =   4215
   End
   Begin VB.TextBox txtChannel2 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   9
      Text            =   "Channel #2"
      Top             =   840
      Width           =   4215
   End
   Begin VB.TextBox txtChannel1 
      BackColor       =   &H00800000&
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   600
      TabIndex        =   8
      Text            =   "Channel #1"
      Top             =   480
      Width           =   4215
   End
   Begin VB.Label Label8 
      BackColor       =   &H00000000&
      Caption         =   "F8"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   2280
      Width           =   375
   End
   Begin VB.Label Label7 
      BackColor       =   &H00000000&
      Caption         =   "F9"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   2640
      Width           =   375
   End
   Begin VB.Label Label6 
      BackColor       =   &H00000000&
      Caption         =   "F7"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   1920
      Width           =   375
   End
   Begin VB.Label Label4 
      BackColor       =   &H00000000&
      Caption         =   "F5"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label3 
      BackColor       =   &H00000000&
      Caption         =   "F6"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1560
      Width           =   255
   End
   Begin VB.Label Label5 
      BackColor       =   &H00000000&
      Caption         =   "F4"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Label2 
      BackColor       =   &H00000000&
      Caption         =   "F3"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label1 
      BackColor       =   &H00000000&
      Caption         =   "Enter the Channels you would like on ur Quick Join!:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4575
   End
End
Attribute VB_Name = "frmQuickJoin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Done_Click()

'set quick channels to the text defined in the editor
frmChat.Chan1.Caption = txtChannel1.text
frmChat.Chan2.Caption = txtChannel2.text
frmChat.Chan3.Caption = txtChannel3.text
frmChat.Chan4.Caption = txtChannel4.text
frmChat.Chan5.Caption = txtChannel5.text
frmChat.Chan6.Caption = txtChannel6.text
frmChat.Chan7.Caption = txtChannel7.text

WriteChannels "Quick Channels", "Channel1", txtChannel1.text
WriteChannels "Quick Channels", "Channel2", txtChannel2.text
WriteChannels "Quick Channels", "Channel3", txtChannel3.text
WriteChannels "Quick Channels", "Channel4", txtChannel4.text
WriteChannels "Quick Channels", "Channel5", txtChannel5.text
WriteChannels "Quick Channels", "Channel6", txtChannel6.text
WriteChannels "Quick Channels", "Channel7", txtChannel7.text

'send message that it was completed.
AddChat vbGray, "-- Quick Channels ", vbGreen, "settings saved!"
frmStatus.txtMainWindowAddChat.Caption = frmStatus.txtMainWindowAddChat.Caption + 1

Unload Me

End Sub

Private Sub Form_Load()

txtChannel1.text = ReadChannels("Quick Channels", "Channel1")
txtChannel2.text = ReadChannels("Quick Channels", "Channel2")
txtChannel3.text = ReadChannels("Quick Channels", "Channel3")
txtChannel4.text = ReadChannels("Quick Channels", "Channel4")
txtChannel5.text = ReadChannels("Quick Channels", "Channel5")
txtChannel6.text = ReadChannels("Quick Channels", "Channel6")
txtChannel7.text = ReadChannels("Quick Channels", "Channel7")


End Sub

Private Sub Form_Unload(Cancel As Integer)

If chkShowChannels.Value = 1 Then
    AddChat vbGray, "-- Channel 1: ", vbGreen, txtChannel1.text
    AddChat vbGray, "-- Channel 2: ", vbGreen, txtChannel2.text
    AddChat vbGray, "-- Channel 3: ", vbGreen, txtChannel3.text
    AddChat vbGray, "-- Channel 4: ", vbGreen, txtChannel4.text
    AddChat vbGray, "-- Channel 5: ", vbGreen, txtChannel5.text
    AddChat vbGray, "-- Channel 6: ", vbGreen, txtChannel6.text
    AddChat vbGray, "-- Channel 7: ", vbGreen, txtChannel7.text
    frmStatus.txtMainWindowAddChat.Caption = frmStatus.txtMainWindowAddChat.Caption + 7
End If

End Sub
